Imports iConverter.Contracts
Imports iConverter.Extensions
Imports Microsoft.International.Converters.TraditionalChineseToSimplifiedConverter



''' <summary>
''' 把简体中文转换为繁体中文。 
''' </summary>
''' <remarks></remarks>
Public Class ToTraditionalProcessor
    Inherits Processor(Of My.MySettings)

    Public Sub New()
        MyBase.New(New Guid("A25E093B-56BD-4BF8-BA50-27CD053B91B3"),
                   "转换为繁体中文",
                   "把简体中文转换为繁体中文",
                   My.Resources.TH_32x32, My.Resources.TH_16x16)

    End Sub

    Protected Overrides Sub OnProcessing(doc As iConverter.Contracts.IConvertDocument)
        Dim str = ChineseConverter.Convert(doc.Content, ChineseConversionDirection.SimplifiedToTraditional)

        doc.Content = str
    End Sub
End Class
